context("leaveoneout")
library(TwoSampleMR)

dat <- make_dat(2, 7)

test_that("leaveoneout", {
	w <- mr_leaveoneout(dat)
	expect_true(nrow(w) == sum(dat$mr_keep) + 1)
})

test_that("leaveoneout_plot", {
	w <- mr_leaveoneout(dat)
	p <- mr_leaveoneout_plot(w)
	expect_true(length(p) == 1)
})
